load(here::here("DataCollection/PNAS analysis/Data", "iplTime.rda"))
timeTable <- subset(iplTime, select = c(Sample, Instrument, N, Mean, SD, Min, Median, Max))

stargazer(timeTable, 
          title = c("Minutes it took respondenst to answer all IPL-12/24 questions"),
          summary = FALSE,
          rownames = FALSE,
          align = TRUE,
          digits = 2,
          label = c("time"),
          out = c(here::here("Draft/PNAS/draft/tables", "surveyTime.tex")))

